home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
windows
/
ldialogs.zip
/
UNIT2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-07-25
|
1KB
|
56 lines
unit Unit2;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, LDialogs, StdCtrls {$IFDEF NEVER} , Dialogs, BlahBlah {$ENDIF} ;
type
TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
procedure WndProc(var Message: TMessage); override;
procedure CreateParams(var Params: TCreateParams); override;
public
{ Public declarations }
end;
implementation
{$R *.DFM}
procedure TForm2.Button1Click(Sender: TObject);
begin
Application.HelpContext(3);
end;
procedure TForm2.Button2Click(Sender: TObject);
var
SaveDialog: TSaveDialog;
begin
SaveDialog := TSaveDialog.Create(nil);
SaveDialog.HelpContext := 6;
saveDialog.Options := [ofShowHelp];
saveDialog.Execute;
SaveDialog.Free;
end;
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := GetWindowOnTop(hInstance);
end;
procedure TForm2.WndProc(var Message: TMessage);
begin
CheckHelp(Message);
inherited WndProc(Message);
end;
end.